Option Explicit
Sub B_Sample017()
    Dim myRng As Range
    Set myRng = Range("A1")		'Nxs
    With myRng
        MsgBox .Width 			'I
        MsgBox .ColumnWidth		're׳
        MsgBox .Height			'I
        MsgBox .RowHeight 		'I
    End With
    Set myRng = Nothing			'
End Sub

	